--<<<
format debug "--  Compiling ConductorClock Class . . .\n" undefined undefined

class ConductorClock(Clock)
inst vars
	owner
end

method init self {class ConductorClock} #rest args #key owner: ->
(
	apply nextMethod self args
	self.owner := owner
)

method gotoBegin self {class ConductorClock} ->
(
	self.time := 0
)

method clockAdded self {class ConductorClock}  theMaster theSlave->
(
	nextMethod self theMaster theSlave
	instrumentAdded self.owner theSlave
)

method clockRemoved self {class ConductorClock}  theMaster theSlave->
(
	nextMethod self theMaster theSlave
	instrumentRemoved self.owner theSlave
)

#(ConductorClock,#("owner"),#())
